home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SunSoft Catalyst CDWARE 1996 May to August
/
Catalyst CDWARE 1996 May to August.iso
/
.products
/
.bin
/
httpd
/
Solaris_1
/
test.pl
< prev
next >
Wrap
Perl Script
|
1996-02-29
|
590b
|
41 lines
#!./perl
#req_more_info.pl
# get args
$name = @ARGV[1];
#while (@ARGV) {
#$ARGV=shift;
#$orig = $ARGV;
#$name = $orig;
#$name =~ s/-.*//g;
#$param = $orig;
#$param =~ s/.*-//g;
#}
$~ = HTMLHEADER;
write STDOUT;
print "<h2> $name @ARGV</h2>";
$~ = HTMLFOOTER;
write STDOUT;
##############################################################################
format HTMLHEADER =
Content-type: text/html
<html>
<head>
<title>CDware Test</title>
</head>
.
##############################################################################
format HTMLFOOTER =
</BODY>
</HTML>
.